﻿Public NotInheritable Class Mod_Utilities
    Private Sub New()
    End Sub
    'Private Shared Property Copied As Boolean = False

    'Public Shared Sub Copy_DLLs()
    '    Dim NewFile As String = Windows.Forms.Application.StartupPath & "\ObjectListView.dll"
    '    If Copied = False Then
    '        If My.Computer.FileSystem.FileExists(NewFile) Then
    '            My.Computer.FileSystem.DeleteFile(NewFile)
    '        End If
    '        My.Computer.FileSystem.CopyFile("C:\Storage\Visual Studio\ObjectListViewDemo\ObjectListView\bin\Debug\ObjectListView.dll", NewFile)
    '        Copied = True
    '    End If
    'End Sub



    Public Shared Function Get_Types() As List(Of Code_Snippet)
        Dim List As New List(Of Code_Snippet)
        Dim Code1 As New Code_Snippet("Integer")
        Code1.Code.Add(New Tuple(Of Code_Snippet.Language, String)(Code_Snippet.Language.VB, "Integer"))
        Code1.Code.Add(New Tuple(Of Code_Snippet.Language, String)(Code_Snippet.Language.CSharp, "int32"))
        List.Add(Code1)
        Dim Code2 As New Code_Snippet("String")
        Code2.Code.Add(New Tuple(Of Code_Snippet.Language, String)(Code_Snippet.Language.VB_CSharp, "String"))
        List.Add(Code2)



        Return List
    End Function



End Class

Partial Class Mod_Utilities

    Public Class Code_Snippet
        Public Enum Language
            VB_CSharp
            VB
            CSharp
            SQL
            CPlusPlus
        End Enum

        Public Property Name As String
        Public Property Code As New List(Of Tuple(Of Language, String))

        Sub New()
        End Sub

        Sub New(ByVal Name As String)
            Me.Name = Name
        End Sub


    End Class



End Class
